COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	ESTERR BEGS BEGS2 BEGS3 BEGS4 BEGS5 TUUOH BEGS6 BEGS7 BEGS8 BEGS9 BEGS10
C00005 ENDMK
C⊗;
;ESTERR BEGS BEGS2 BEGS3 BEGS4 BEGS5 TUUOH BEGS6 BEGS7 BEGS8 BEGS9 BEGS10

ESTERR:	OUTSTR [ASCIZ/137 TROUBLE, BEWARE!/]
	JRST 4,137


OPDEF INIERR [1B8]		;ERROR UUO FOR SEGMENT GETTING

IMPURE
;Here are a bunch of pointers for JFR's hopeless program to find things via.
	0,,PAGE		;data structure headers and trailers
	BOTSTR
	ATTBUF
	JBICNI		;interrupt block and ESCIEN flag
	FSGET		;storage allocation
	FSGIVE
	DRAW		;display routine
IFE DEBSW,<JRST 4,.>
IFN DEBSW,<JRST BEGDBG>
	JSR BEGS2
BEGS:	JSR BEGS2		;ENTRY -1 TO +2
	JSR BEGS2
	JSR BEGS2
BEGS2:	0
	MOVEM 17,RPGACS+17	;SAVE INITIAL ACS
	MOVEI 17,RPGACS
	BLT 17,RPGACS+16
	RESET
	SOS 17,BEGS2		;ADDRESS WHERE WE ENTERED
	SKIPE JOBHRL		;ALREADY HAVE AN UPPER?
	 JRST BEGS3		;YES
	LINKUP			;NO.  BUT DOES SOMEONE ELSE HAVE IT?
	 SKIPA 1,[JRST TUUOH]	;NO.  LOAD TEMP UUO HANDLER
	 JRST BEGS3		;YES
	MOVEM 1,JOB41↑		;TEMP UUO HANDLER
	INIT DSKI,17		;DUMP MODE
	'DSK   '		;Change to 'SYS   ' for actual use
	0
	INIERR [ASCIZ/CANT INIT SYS:/]
	LOOKUP DSKI,LOKBL2
	 INIERR [ASCIZ/CANT LOOKUP E.SEG/]
	MOVS 1,LOKBL2+3		;-SIZE
	MOVN 1,1
	ADD 1,JOBFF↑
	CORE 1,
	 INIERR [ASCIZ/NO CORE TO READ SEGMENT/]
	SOS 1,JOBFF		;CONTRUCT IOWD
	HLL 1,LOKBL2+3
	SETZ 2,
	IN DSKI,1
	 AOSA 1,JOBFF		;CORRECT FOR THE SOS
	 INIERR [ASCIZ/ERROR READING SEGMENT/]
	RELEASE DSKI,
	TLO 1,400000		;WRITE PROTECT
	HRRI 1,-1(1)		;LAST ADDR IN LOWER
	REMAP 1,
	 INIERR [ASCIZ/REMAP FAILED/]
	MOVE 1,LOKBL2
;	MOVSI 1,'E  '
	SETNM2 1,
	 CAI
BEGS3:	MOVEM 17,PSAVE#
	HRLZI 17,RPGACS
	BLT 17,17
	EXCH 17,PSAVE
	ADDI 17,1*BEG-BEGS
	EXCH 17,PSAVE
	JRST @PSAVE

BEGS4:	JRST BEGS5

BEGS5:
TUUOH:	OUTSTR [BYTE (7) 15,12]
	OUTSTR @JOBUUO↑
	EXIT

BEGS6:	ASCIZ/CANT INIT SYS:/
BEGS7:	ASCIZ/CANT LOOKUP E.SEG/
BEGS8:	ASCIZ/NO CORE TO READ SEGMENT/
BEGS9:	ASCIZ/ERROR READING SEGMENT/
BEGS10:	ASCIZ/REMAP FAILED/

	LIT
PURE